
UNIT ST;
INTERFACE
Const MaxBatch = 25;
Type TPtrTListe = ^TListe;
         TListe = Array [1..MaxInt] of Integer;
         TPtrTListeVu=^TListeVu;
         TListeVu = Array [1..32] of Integer;

PROCEDURE 	LoadOneTool
                   		(Num,Version : Integer);                  Tool 1,15;  
                   		           
PROCEDURE 	STStartup
					(MemID : integer);					Tool 219,2;
PROCEDURE 	STShutDown;					            	Tool 219,3;
FUNCTION   	STVersion : Integer;				      	Tool 219,4;
FUNCTION   	STStatus : Integer;				      	Tool 219,6;

PROCEDURE 	STLoadOneMusic
                  		(Filename : string);	      			Tool 219,9;
PROCEDURE 	STPlayMusic
					(LoopMode: Boolean);	      		Tool 219,10;
PROCEDURE 	STStopMusic;                                     	Tool 219,11;
FUNCTION   	STGetEOfMusic : Boolean;              		Tool 219,12;
PROCEDURE 	STAddToBatch
                  		(Filename : string; BatchNb : Integer);
                  									      		Tool 219,13;
PROCEDURE 	STSelectBatch
					(BtachNb : Integer); 				Tool 219,14;
PROCEDURE 	STKillBatch
					(BtachNb : Integer);    				Tool 219,15;
FUNCTION   	STGetPlayingMusic : Integer;         	Tool 219,16;
PROCEDURE 	STPlayBatch
					(ListeMus : TPtrTListe);			Tool 219,17;
FUNCTION        STGetTrackVu : TPtrTListeVU;			Tool 219,18;
PROCEDURE		STPauseMusic;							Tool 219,19;
PROCEDURE		STContinueMusic;						Tool 219,20;				

IMPLEMENTATION
END.

